home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / setup_ut / ssetup24 / choice1.fr_ / CHOICE1.FRM
Text File  |  1995-01-25  |  4KB  |  154 lines
  1. VERSION 2.00
  2. Begin Form Form3 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Choose directory..."
  6.    ClientHeight    =   1365
  7.    ClientLeft      =   1140
  8.    ClientTop       =   1500
  9.    ClientWidth     =   6270
  10.    ControlBox      =   0   'False
  11.    Height          =   1770
  12.    Left            =   1080
  13.    LinkMode        =   1  'Source
  14.    LinkTopic       =   "Form3"
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   1365
  18.    ScaleWidth      =   6270
  19.    Top             =   1155
  20.    Width           =   6390
  21.    Begin CommandButton Commande2 
  22.       Caption         =   "&Abort"
  23.       Height          =   375
  24.       Left            =   4680
  25.       TabIndex        =   1
  26.       Top             =   600
  27.       Width           =   1455
  28.    End
  29.    Begin CommandButton Commande3 
  30.       Caption         =   ">>"
  31.       Height          =   375
  32.       Left            =   4080
  33.       TabIndex        =   4
  34.       Top             =   600
  35.       Width           =   375
  36.    End
  37.    Begin TextBox Texte1 
  38.       Height          =   375
  39.       Left            =   120
  40.       TabIndex        =   3
  41.       Top             =   600
  42.       Width           =   3855
  43.    End
  44.    Begin CommandButton Commande1 
  45.       Caption         =   "OK"
  46.       Height          =   375
  47.       Left            =   4680
  48.       TabIndex        =   0
  49.       Top             =   120
  50.       Width           =   1455
  51.    End
  52.    Begin Label Etiquette1 
  53.       BackColor       =   &H00C0C0C0&
  54.       Caption         =   "Choose destination directory:"
  55.       Height          =   375
  56.       Left            =   120
  57.       TabIndex        =   2
  58.       Top             =   120
  59.       Width           =   4335
  60.    End
  61. End
  62.  
  63. Sub Commande1_Click ()
  64.  
  65. UserPath$ = Texte1.Text
  66. If (UserPath$ = "") Then
  67. Beep
  68. If (iLanguage% = LANGUAGE_FRENCH) Then
  69. MsgBox "Veuillez indiquer un rΘpertoire de destination!"
  70. Else
  71. MsgBox "Please give a destination directory!"
  72. End If
  73. Texte1.SetFocus
  74. Exit Sub
  75. End If
  76. szTest$ = Right$(UserPath$, 1)
  77. If (szTest$ <> "\") Then
  78.  UserPath$ = UserPath$ + "\"
  79. End If
  80. a% = IsFileName(UserPath$, FILENAME_DIRWITHSLASH, CHECK_ROOTDIRSEXIST)
  81. If (a% = 0) Then
  82. Beep
  83. If (iLanguage% = LANGUAGE_FRENCH) Then
  84. MsgBox "DΘsolΘ, ce rΘpertoire n' est pas valable: Veuillez indiquer un nom de rΘpertoire comme C:\ANCIEN\NOUVEAU"
  85. Else
  86. MsgBox "Sorry, this directory is not valid: Give a dos directory name like C:\OLDDIR\NEWDIR"
  87. End If
  88. Texte1.SetFocus
  89. Exit Sub
  90. End If
  91. UserPath$ = UCase$(UserPath)
  92. DirCanClose% = 1
  93. bIsSetupOK% = 1
  94. bUserAbort% = 0
  95. Unload Form3
  96.  
  97. End Sub
  98.  
  99. Sub Commande2_Click ()
  100. If (iLanguage% = LANGUAGE_FRENCH) Then
  101. a% = MsgBox("Etes vous certain de vouloir abandonner l' installation?", 36)
  102. Else
  103. a% = MsgBox("Are you sure you wish to cancel this installation?", 36)
  104. End If
  105. If (a% = 6) Then
  106. DirCanClose% = 1
  107. bIsSetupOK% = 0
  108. bUserAbort% = 1
  109. Unload Form3
  110. End If
  111.  
  112. End Sub
  113.  
  114. Sub Commande3_Click ()
  115. Dim sTemp As String * 256
  116. sTemp$ = String$(256, 0)
  117. Mid$(sTemp$, 1, Len(Texte1.Text)) = Texte1.Text
  118. Call SetupBrowseDir(Form3.hWnd, sTemp$)
  119. iZero% = InStr(sTemp$, Chr$(0))
  120. szTemp$ = Left$(sTemp$, iZero% - 1)
  121. Texte1.Text = szTemp$
  122. Texte1.SetFocus
  123. Texte1.SelStart = 0
  124. Texte1.SelLength = Len(Texte1.Text)
  125.  
  126. End Sub
  127.  
  128. Sub Form_Load ()
  129. DirCanClose% = 1
  130. Form3.Move (Screen.Height / 2) - (Height / 2), (Screen.Width / 2) - (Width / 2), Width, Height
  131. If (iLanguage% = LANGUAGE_FRENCH) Then
  132. Etiquette1.Caption = "Indiquez le rΘpertoire dans lequel vous souhaitez installer " + szProductName$
  133. Commande2.Caption = "&Abandonner"
  134. Else
  135. Etiquette1.Caption = "Choose destination directory for " + szProductName$
  136. Commande2.Caption = "&Abort"
  137. End If
  138. sTemp$ = szWinDir$ + szDefaultDir$
  139. Texte1.Text = sTemp$
  140. 'Texte1.SetFocus
  141.  
  142.  
  143. End Sub
  144.  
  145. Sub Texte1_Change ()
  146. If (Len(Texte1.Text) < 3) Then
  147. Commande1.Enabled = 0
  148. Else
  149. Commande1.Enabled = 1
  150. End If
  151.  
  152. End Sub
  153.  
  154.